﻿Imports CommonLayer

Public Class frmInventoryList

#Region "Declare"

    Public Overrides ReadOnly Property PermissionID() As PermissionEnum
        Get
            Return PermissionEnum.Item
        End Get
    End Property

    Public Overrides ReadOnly Property TreePermissionID() As PermissionEnum
        Get
            Return PermissionEnum.ItemCategory
        End Get
    End Property

#End Region

#Region "Event"

#End Region

#Region "Overridable"

    'Protected Overrides Sub InitDataToCombo()
    '    MyBase.InitDataToCombo()
    '    'Dim oBLDictionary As New BusinessLayer.BLDictionary()
    '    'With oBLDictionary
    '    '    .BusinessObject = dsDictionary
    '    '    .TableName = dsDictionary.Department.TableName
    '    '    .GetAllData()
    '    'End With
    'End Sub

    Protected Overrides Function GetFormDetail() As frmBaseDictionaryDetail
        Dim frm As New frmInventoryItemDetail
        Return frm
    End Function

    Protected Overrides Function GetFormTreeDetail() As frmBaseDictionaryDetail
        Dim frm As New frmItemCategoryDetail
        Return frm
    End Function

    Protected Overrides Function InitAddNewRow() As DataRow
        Return oBLDictionary.AddNewItem
    End Function

    Public Overrides Function InitAddNewTreeRow() As DataRow
        Return oBLTree.AddNewItemCategory
    End Function

#End Region

#Region "Sub/Function"

#End Region
End Class
